home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / Macromedia® Director / Demos / DAVIDEO.DIR / 00135.ls < prev    next >
Encoding:
Text File  |  1995-08-02  |  2.4 KB  |  118 lines
  1. global gColorD, gTheta, gPhi, gR, gR2, gRep, gTempTheta, gTempPhi, gPlayedOnce, gNumOTimes, black
  2.  
  3. on revertColor
  4.   set the colorDepth to gColorD
  5.   updateStage()
  6. end
  7.  
  8. on startMovie
  9.   if the machineType <> 256 then
  10.     set gColorD to the colorDepth
  11.     if the colorDepth <> 8 then
  12.       set the colorDepth to 8
  13.     end if
  14.   end if
  15.   set the randomSeed to the ticks
  16.   set gPlayedOnce to 0
  17.   set the floatPrecision to 7
  18.   set gNumOTimes to 236
  19.   set gRep to 0
  20.   set gR to 200
  21.   set gR2 to 200
  22.   set gTempTheta to 0.001
  23.   set gTempPhi to 0.25
  24. end
  25.  
  26. on stopMovie
  27.   if the machineType <> 256 then
  28.     revertColor()
  29.   end if
  30. end
  31.  
  32. on spiralInit
  33.   puppetSprite(24, 1)
  34.   if gPlayedOnce = 1 then
  35.     newValues()
  36.   end if
  37.   set gTheta to gTempTheta * (PI / 180)
  38.   set gPhi to gTempPhi * (PI / 180)
  39. end
  40.  
  41. on Lissajou2
  42.   set gRep to gRep + 1
  43.   if gRep > (gNumOTimes * PI) then
  44.     go("HoldFrame")
  45.   else
  46.     set newH to (gR2 * sin(100 * gTheta * gRep) * cos(100 * gPhi * gRep)) + (gR * sin(gTheta * gRep) * cos(gPhi * gRep)) + 390
  47.     set newV to (gR2 * sin(100 * gTheta * gRep) * sin(100 * gPhi * gRep)) + (gR * sin(gTheta * gRep) * sin(gPhi * gRep)) + 237
  48.     set the loc of sprite 24 to point(newH, newV)
  49.     updateStage()
  50.   end if
  51. end
  52.  
  53. on newValues
  54.   set whichPattern to random(24)
  55.   if (whichPattern > 4) and (whichPattern < 15) then
  56.     set whichPattern to 5
  57.   end if
  58.   if whichPattern >= 15 then
  59.     set whichPattern to 6
  60.   end if
  61.   set the castNum of sprite 24 to 129 + random(5)
  62.   do("patternMaker" & whichPattern)
  63. end
  64.  
  65. on patternMaker1
  66.   set gNumOTimes to 600
  67.   set gRep to 0
  68.   set gR to 200
  69.   set gR2 to 20
  70.   set gTempTheta to 0.29999999999999999
  71.   set gTempPhi to 0.5
  72. end
  73.  
  74. on patternMaker2
  75.   set gNumOTimes to 2300
  76.   set gRep to 0
  77.   set gR to 220
  78.   set gR2 to 10
  79.   set gTempTheta to 0.01
  80.   set gTempPhi to 3
  81. end
  82.  
  83. on patternMaker3
  84.   set gNumOTimes to 572
  85.   set gRep to 0
  86.   set gR to 200
  87.   set gR2 to 200
  88.   set gTempTheta to 0.001
  89.   set gTempPhi to 2
  90. end
  91.  
  92. on patternMaker4
  93.   set gNumOTimes to 2000
  94.   set gRep to 0
  95.   set gR to 200
  96.   set gR2 to 50
  97.   set gTempTheta to 0.01
  98.   set gTempPhi to 1
  99. end
  100.  
  101. on patternMaker5
  102.   set gNumOTimes to 2000
  103.   set gRep to 0
  104.   set gR to 200
  105.   set gR2 to random(30)
  106.   set gTempTheta to log(random(100)) / 10
  107.   set gTempPhi to log(random(100))
  108. end
  109.  
  110. on patternMaker6
  111.   set gNumOTimes to 2000
  112.   set gRep to 0
  113.   set gR to 200
  114.   set gR2 to random(200)
  115.   set gTempTheta to (log((random(270) / 100) + 1) / random(100)) + 0.001
  116.   set gTempPhi to random(100) / 10
  117. end
  118.